library(shiny)
library(DT)
library(jpeg)
library(imager)
Logged = FALSE;
my_username <- "test"
my_password <- "test"
Show_img = function (img, box_info = NULL, col_bbox = '#FFFFFF00', col_label = '#FF0000FF') {
par(mar = rep(0, 4))
plot(NA, xlim = c(0, 1), ylim = c(1, 0), xaxt = "n", yaxt = "n", bty = "n")
img = (img - min(img))/(max(img) - min(img))
img = as.raster(img)
rasterImage(img, 0, 1, 1, 0, interpolate=FALSE)
if (!is.null(box_info)) {
if (nrow(box_info) > 0) {
for (i in 1:nrow(box_info)) {
size = max(box_info[i,3] - box_info[i,2], 0.2)
rect(xleft = box_info[i,2], xright = box_info[i,2] + 0.06*sqrt(size)*nchar(box_info[i,1]),
ybottom = box_info[i,5] + 0.08*sqrt(size), ytop = box_info[i,5],
col = col_label, border = col_label, lwd = 0)
text(x = box_info[i,2] + 0.03*sqrt(size) * nchar(box_info[i,1]),
y = box_info[i,5] + 0.04*sqrt(size),
labels = box_info[i,1],
col = 'white', cex = 1.5*sqrt(size), font = 2)
rect(xleft = box_info[i,2], xright = box_info[i,3],
ybottom = box_info[i,4], ytop = box_info[i,5],
col = col_bbox, border = col_label, lwd = 5*sqrt(size))
}
}
}
}
ui1 <- function(){
tagList(
div(id = "login",
wellPanel(textInput("userName", "Username"),
passwordInput("passwd", "Password"),
br(),actionButton("Login", "Log in"))),
tags$style(type="text/css", "#login {font-size:10px; text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}")
)}
ui2 <- function(){tagList(tabPanel("Main page",
fluidRow(
column(width = 4,
fileInput("files", label = h4("Upload your jpeg image:"), multiple = FALSE, accept = "image/jpeg"),
br(),
radioButtons("obj", label = h4("Please select a object name:"), c("person" = "person")),
br(),
downloadButton("download", label = "Download file", class = NULL)
),
column(width = 7,
plotOutput("plot", height = 416, width = 416,
dblclick = "plot_dblclick",
brush = brushOpts(id = "plot_brush", resetOnNew = TRUE)),
br(),
actionButton("delete", strong("Delete selected box!"), icon("list-alt")),
br(),
br(),
DT::dataTableOutput('table')
)
)))}
library(shiny)
library(DT)
library(jpeg)
library(imager)
function(input, output,session) {
USER <- reactiveValues(Logged = Logged)
observe({
if (USER$Logged == FALSE) {
if (!is.null(input$Login)) {
if (input$Login > 0) {
Username <- isolate(input$userName)
Password <- isolate(input$passwd)
Id.username <- which(my_username == Username)
Id.password <- which(my_password == Password)
if (length(Id.username) > 0 & length(Id.password) > 0) {
if (Id.username == Id.password) {
USER$Logged <- TRUE
}
}
}
}
}
})
observe({
if (USER$Logged == FALSE) {
output$page <- renderUI({
div(class="outer",do.call(bootstrapPage,c("",ui1())))
})
}
if (USER$Logged == TRUE)
{
output$page <- renderUI({
div(class="outer",do.call(navbarPage,c(inverse=TRUE,title = "Contratulations you got in!",ui2())))
})
print(ui)
IMAGE = reactive({
if (is.null(input$files)) {return()} else {
img = readJPEG(input$files$datapath)
return(img)
}
})
MY_TABLE = reactiveValues(table = NULL)
output$plot = renderPlot({
img = IMAGE()
if (!is.null(input$files$name)) {
box_info = MY_TABLE$table
box_info = box_info[box_info[,"img_id"] == input$files$name,]
} else {
box_info = NULL
}
if (is.null(img)) {return()} else {
Show_img(img = img, box_info = box_info)
}
})
observeEvent(input$plot_dblclick, {
brush = input$plot_brush
if (!is.null(brush) & !is.null(input$files$name)) {
new_table = data.frame(obj_name = input$obj,
col_left = brush$xmin,
col_right = brush$xmax,
row_bot = brush$ymax,
row_top = brush$ymin,
prob = 1,
img_id = input$files$name,
stringsAsFactors = FALSE)
MY_TABLE$table = rbind(MY_TABLE$table, new_table)
}
})
observeEvent(input$delete, {
selection = as.numeric(input$table_rows_selected)
if (length(selection)!=0) {
MY_TABLE$table = MY_TABLE$table[-selection,]
}
})
output$table = DT::renderDataTable({
dat = MY_TABLE$table
if (is.null(dat)) {return()} else {
dat[,2] = round(dat[,2], 3)
dat[,3] = round(dat[,3], 3)
dat[,4] = round(dat[,4], 3)
dat[,5] = round(dat[,5], 3)
Result = DT::datatable(dat)
return(Result)
}
})
output$download = downloadHandler(
filename = function() {'label.csv'},
content = function(con) {
dat = MY_TABLE$table
if (is.null(dat)) {return()} else {
write.csv(dat, con, row.names = FALSE)
}
}
)
}
})
}
